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.ENABLE AMA 
.ENABLE ABS 






.NLIST ME,CND,MD 


.=2000 




SVC 




SVCINS=0 




SVCTAG=0 




POINTER NONE 


BGNMOD MDHEDR 




HEADER 
.ASCII 


CZRLF,B/0, 


/c/ 


•Mi'l 


/z/ 


/R/ 


:iUl 


/L/ 


/F/ 


:im 


8 


.BYTE 





.ASC I 
.ASC I 


/B/ 


/O/ 


.UOR 




.UOR) 


.MOR 1 


LSHARD 


■A^ll 




L$HW 


.W0R5 





.IfifOR ) 


LSLAST 


.WOR) 





.WORD 





.WORD 


J 


.WO D 
.WORD 


LSDISPATCH 


.WORD 





.WORD 





.WORD 





.BY E 


CSREVISION 
CSEDIT 


.BYTE 


.WORD 




.WO 


.WORD 





.WO D 




.WO D 





.WO D 


LSDVTYP 


.WO D 





.WO D 


LSDR 

lIdrst 


.WORD 


.WO D 





• WO D 


f4 


.WO D 



ci^??E:-?ir""5!!»ov-78 S!^?ll' "*"""' "-""-'« ''•■'' 



002102 000000 

mu mm 




-111! ^^^"^^^ 



QQ001_ 
566603 



.WORD 

.word lsinit 

.WORD lIcLEAN 

ENDMOD 
DEVREG 
.WORD 
.BLKU 

DEVTYP <RL01> 
.ASCIZ /RLOl/ 
.EVEN 



.sbttl global equates section 
;definitions 

bgnmod glbeqat 

EQUALS 

CS=0 
BA=2 
DA=4 
HPse 
;CONSTANT OFFSETS FOR INDIVDUAL 

CSRsO 
VEC=:2 
DSB=4 
PATS6 



>£fiKIS9fc^|ND STATUS OFFSET 

;busaddress offset 
;disk address offset 
jmulti purpose offset 
drive buffers 




'S9H59LLER ADDRESS 
;VECTQR^gF CONTROLLER 
>8?I^i SELECT 
;PATTERN UNIQUE TO DRIVE 

;DRIVE READY 
INTERRUPT ENABLE 
;cgMPOSITE ERROR 

;drive error 

'H?2tE,x|§tant memory error 
;DATA late 

;pATA CRC error 

;header CRC error 

^Hi/^RIS '^OT FOUND error 
jOPERATION^INCOMPLETE ERROR 
'£9SIB9I;LER READY 
/EXTENDED BUS ADDRESS BIT 17 

'BP2r,"l,48ER FUNCTION CODE 

;write function code 

;read^function code 

fripl?i^p command code for drive cqv¥kd word 

;GET status command code for drive COMMAND WORD 
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MK=BItO 

iiimn 

HEADSBIT6 



;MARKER 


BIT 


Tslll 




IRECT 


[ON P 


iSBI 


ifei?? 


^8Hi 



COMMAND UORD(SEEK#GET STATUS) 
AWAY FROM SPINDLE) 

WRITE, GET STATUS 



;OrrSET FOR HARDWARE P-tABLE 
ViCTs2 

Mfiio 



) 



002122 



G^iiAB'^DATA SECTION 



002122 



_44 
.45 



BGNMOD 
OS 

o: 

ml 



0QD4 
OQUf 
OQDl 

oau2 

OQU| 
0Q04 
0QU5 

m 

hid| 

m 



GLBDAT 

.BYTE 
• BYfl 



.lYfi 
.BYTE 
-BYTE 
.BYTE 
.BYTE 
•i^tE 
.BYTE 
.BYTE 
.BYTE 
• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

m 



llaHEADER IN BAD SECTOR LIST 



) 
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GLOBAL DATA SECTION 



|U4 
IU5 

'Q02 
— U3 

iM 

NH2 

nn| 

MH4, 

nmg 

m 
mu 

HHSi: 

EVEN 



SEQ 0029 



E 



sSECfOR 
>MAP OF 



LIST FOR LAST J 

16 sector drive 
seclst: .blkm 16. 

;BUFFER table FOR 24 X 
SECBUF: .BLKW 5*24. 



RIVE WRITTEN 
BITS 



5 MATRIX USED FOR ADJACENT CYLINDER TESTING. 



>fcl§l„OP tRACKS USED TO OVERWRITE TEST. 



OVWTRKI 


0UT3 

s?sl 










mn 




patlst: 


:88SS 


mil 




.WORD 




.WORD 


55555 


FOWRS 


.WORD 


8 




.WOR 1 
.WOR 


LSTCLRI 
REASONS 
ERFLGS 


!hor 


n 


1 



?LAST CONTROLLER 
;DR|VE ERROR REASON 
;ERROR FLAG 
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180 002676 000000 







mil l£i 

003746 000000 

002750 OOOQOO 

QQ27§f OOQOOO 

002754 OOOOQO 

002756 000000 

002760 000000 

0Q2762 OOOOOQ 



OOdOO 
00000 



002770 

9Q|ooq oqoooo 

mm mm 

Im mm 

m mm 

30|6 000000 

nm mn 

003024 000000 

003026 000000 

003030 006000 

017030 



017030 000000 
017032 000002 

017036 000006 



STFLG: 
ADJLOC: 
ADJFLG: 
ADJDIR: 

drstat: 
hsflg: 

OSECT: 
HEADOl: 
DIRC: 
DESCYL: 

revsk: 

FORSK: 

uut: 

SECT: 

LSTDRV: 

GDATA: 

bdata: 

wcount: 

sechrd: 

OFFSET: 

lsttrk: 
frttrk: 
prstrk: 

SURFACE: 

trkfnd: 

trkcnt: 

e.cs: 

e.ba: 

e.da: 

e.mp: 

E.MPl: 

E.MP2: 

Bcs: 

bba: 

BDA: 

BMP: 

SERNMl: 
SERIIM2: 

adjtrk: 

ADJUUf : 
ADJLC2: 
ADJLC3: 
ADJLC4: 
STSECl: 
STSEC: 

bof: 

DRBUF: 



.word 

.MORO 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BLKW 



;PROGRAM START UP FLAG 
;TRACK INDEX FOR ADJ. CYL TEST 
;FLAG FOR ADJ. STORE OR RETRIEVE 
;ADJACENT SEEK DIRECTION 



;SURFACE 



SEEK 



CSR 
VEC 
DSB 
PAT 



;PACK SURFACE 
;REVERSE SEEK 
;FpRWARD SEEK 
;01IIT UNDER TEST 
;SECfOR 

;last drive 
;good data 

;BAD data 

?WORD COUNT 

; SECTOR WORD 

HNCREMENT 

;LAST TRACK OF SEARCH 

;F|RST TRACK OF SEARCH 

JPRESENT TRACK 

;SORFACE 

;TRACK FOUND 

;TRACK COUNT 

;IMAGE OF CSR 

;IMAGE OF BUS ADDRESS 

? IMAGE OF DISK ADDRESS 

; IMAGE OF MULTI-PURPOSE WORD 1 

. II « II If II 2 

;COMMAND LOADED 
;BUS ADDRESS LOADED 
;DISK ADDRESS LOADED 

?word count loaded 
;serial number of catridge 

;inside/0utside flag 
>uut for "adjcyl" 
;temp loc for "adjcyl" 



;SECT0RS TO WRITE "ADJCYL" 
;BUFFER for 24 SECTOR READS 
;DRIVE INFORMATION BUFFERS 



;CONTROLLER ADDRESS 

;VECTOR 

;DRIVE SELECT BITS 

;PATTERN UNIQUE TO DRIVE 
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CSR 
VEC 
DSB 
PAT 




nm mm 
mt mm 



CSR 
VEC 
DSB 
PAT 



CSR 
VEC 
DSB 
PAT 



017070 000000 
017072 



017072 



ENDBUF: .WORD 
ENDMOD 



S§?,nfc ^liPMh ^EXT SECTION 
BGNMOD GLBTXT 



?GLOBAL TEXT 



;CDNTROLLER ADDRESS 
;VECTOR 

;drive select bits 
;pattern unique to drive 



;controller address 

;VECTOR 

;drive select bits 
;pattern unique to drive 



KONTROLLER ADDRESS 
;VECTOR 

;drive select bits 
;pattern unique to drive 



;END of DRIVE BUFFERS 




-15 
106 

lU 

051105 
101 



/CNTLR TIMED OUT/ 

^IrROR on rIaD/^ ^"^ INITIAL WRITE BY FIRST DRIVE / 

/MINIMUM OF TWO DRIVES REQUIRED/ 

/MAXiMUM OF FOUR DRIVES XCLOWEB/ 

/TEST ABORTED - CAN'T FIND ANY GOOD SPOTS/ 

/TRYING TO OVERWRITE DRIVE / ^ruio/ 

/TRYING TO READ DATA WRITTEN BY DRIVE / 

'iSSS^^LCPD PVE ADJACENT TRACKS/ 

/OVERWRITE ERROR/ 

/READ RECOVERY ERROR/ 

/ERROR IN SEEK OPERATION/ 

/MIS SEEK ERROR/ 

/FORWARD/ 

/REVERSE/ 

/ERROR WRITING SECTOR/ 

/ERROR READING SECTOR/ 

/ADJACENT CYLINDER TEST/ 



^ # 
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CZRLFB^Pll 



ii 



0) 



0I77S6 

017756 
0177S6 



062 



104023 



000012 



II? mm 

104023 

156416 000005 

016446 000000 

l\m ml 

Im mm 

Hint ®°2'^3° 

I ilif 0*^2720 

isllie 002721 



GLOBAL tEXf SECTION 

«EVEN 

EMDMOD 

BGHMSa BRRl 

/LSTfRK^SURFACE 



SEQ 0032 



) 



iir iMimif' 



EMf 
ADD 






L100003 



SHT 
SGHHSG ERI 



C$MSG 



iR|ifB #FRM4^CSR(R4),<B,DSB*l<R4)> 
#§iGDHP 



^REGISTER DUMP ROUTINE 



LlOOOll 



EMf 
B6NMSG ERR3 



C$MSG 



PRINTB #FRM4,CSR(R4)/<B^DSB'H(R4)> 

SP#RO 
CSPNTB 



MOV 
MOV 
MOV 
MOV 
EMT 
ADD 
JSR 






pLSegd! 



REGISTER DUMP ROUTINE 



PRINTB |FRM5/<BgDESCYL+i>,<B,DESCYL>,SECT 
BISB DESCYL,(SP) 



CLR 

Bir 



DESC9L»1/(SP) 
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GLOBAL ERROR REPORT SECTION 



i 



20 



ill 



020206 






lo 



II 



62706 



013746 
013746 

nnr 



mm 



000012 



06 000010 



104023 



III mm mm 

002730 
002720 

mil 



002732 
002670 
002732 



'! ill! ii 



SEQ 0033 



EMT 
ADD 
PRINTB 

"! 

is;; 

EMT 
ADD 

ENDMSG 

EMT 

ERR4 

PRINTB 

m 

If 



CSPNTB 
IfRfil6,CSR(R3),<B^DSB*l(R3)> 



CSMSG 



#FRM4,CSR(R4),<B,DSB+1(R4)> 
-(SP) 



CLR 

BISB 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADO 

PRINTB 

MOV 

MOV 

MOV 



is 



IILb Im 



i?! 



SP) 

P) 



si«Bi^5KPr,.,««. . IREGISTER DUMP ROUT 
||R^5,<|#DESCYL+i>/<B/DESCYL>/SicT 

lc| 



-?S; 



fL,(SP) 



DESCYL+1#( 



SP) 



SPNTB 

|FRfi6,RE 
LSTDRV/- 
LSTCLR/- 
LSTDRV,- 
REASON,-,-. 

SP,RO 
CSPN|| 



ASpN/LSTDRV,LSTCLR,LSTDRV 
SP) 



■ ■) 



ASSEMBLY ROUTINES 
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MOV 
EMT 
ADD 

ENDMSG 

EMT 

ERRS 

PRINTS 

CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

ENDMSG 

EMT 



BGNMSG ERR6 



CLR 

BISB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

ENDMSG 

EMT 



SP/RO 

CSPNTB 

#6,SP 



C$MSG 

#FRM4,CSR(R4),<B,DSB+1(R4)> 

DSB+1(R4)«(SP) 
CSR(R4)/-tSP) 

SP,RO 
CSPNTB 
#10/SP 
PCREGDMP 

C$MSG 

#FRM4#CSR(R4),<B,DSB'H(R4)> 

DSB+i(R4)#(SP) 
CSR(R4)4-iSP) 

#FRM4,-fSP) 

SP,RO 
CSPNTB 



#FRM17«R1,E.MP 



«-tsp5 



ftF^M 



CSPNTB 
#10#SP 



;FORMAT STATMENTS 



•^SIZ /%N%AyNLOAD^DRIVE %01%A ON CONTROLLER %06%A AND REMOVE PACK%N/ 

•*§SIZ ^NtAPLACE PACK IN DRIVE %01%A ON CONTROLLER *C6*A AND LOAD%N/ 

.ASCIZ f%N%AHRONG PACK U IS %a5%05%A # S/B %05%05%N%N! 

.ASCIZ /%AC0NTR0LLER: %a6%A DRIVE: lOllN/ 

.ASCIZ /%AHEAD: %01%A CYL: %Z3%A SECTOR: %Z2%N/ 
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0445 



122 040<- 

162 04044S 

226 042045 

270 040445 

334 047045 

4?0 047045 

533 045 

562 047045 

706 040445 

742 047045 

005 045 



iim 



^^r- 




.ASCIZ 
-ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



/%T%01%A ON %06%N/ 

/%ASEEK DIRECTION: %T%N%ADATA:%N/ 

Uauqrd: %Z3%A s/b: %06%a has: %g6%Ni 

/%D3%A MORDS bad OUT OF 128 READtN/ 

/%ABETWEEN %Z3%A - %Z3%A HEAD: %01%N/ 

/%N%APWR FAIL NOT SUPPORTEDtN/ 

/%ABEFORE CS: %06%A BA: %U6%A DA: %06%A MP: %06/ ^ , 

/%N%AAFTER CS: %06%A BA: %06%A DA: %06%A MP: %06%N/ 

/%N%A DRIVE STATUS: %Q6/ 

/%n%acan't find bad sector file/ 
"-" "" .er: 



/%aadjacent written by controll 

/%aexp'd: %06%a rec'd: %06%n/ 

/%n%aunload all drives to be used%n/ 
/%n%a end of pass%n%n/ 



%06%a drive: %01%N/ 



022032 



022046 
022046 



022046 
022046 
022050 



000005 

00016 
"0024 



000001 
031056 





ENDMOD 




BGNMOD 


HPTCODE 




BGNHW 


.WORD 


L10006-LSHW/2 




.WORD 

.WORD 
.WORD 


174400 


ENDHW 
L10006: 


EMDMOD 




BGNMOD 


DSPCODE 




DISPATCH 

:38gB 


I 




ENDMOD 





m 



.SBTTL INITIALIZATION SECTION 
BGNMOD INITCODE 



t # 
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000340 

002012 000002 



023300 

002012 000004 90$8 



023300 

002012 002726 91$S 
11030 

l$l 



Mi 



mm 



mm 



mm 



002726 ENDS 



mm 



SRfPRl 

MOV 

EMf 

CMP 
B6B 

m 
W 

.MORD 
«MORD 
JMP 

HO? 

CLR 

MOV 

MOV 

TST 

BEQ 

GPHARD 

MOV 

EMT 

MOV 

MOV 

TST 

MOV 

MOV 

TST 

IMC 

DEC 

MOV 



m 



Ids 



llgSio- 



PENA 



EMT 

BNCOHPLE 

BCC 

PRIMTF 

MOV 

HOV 

MOV 

EMT 



CMPBNA 

LSUNIT,UUT 

«DRBUF£R4 

END 
R1,R0 
R1#R0 
-SGPHR0 



tPAT + 2/R4 

JoNIT^OUT 
iDRBUF^R4 

OWR 

EF.PWR^RO 

SREFG 

E SETUP 
SETUP 
#FRM11 

SP,RO 
C$PNTF 



JMORE tHAH two 
)YBS^ OKAY 



MCLEAN CODE MEH < 2 DRIVES 



i%n 



;CLEAN CODE HHEM > 4 DRIVES 






T P-TABLE 
OP DRIVE BUFFER 



;get list of patterns 

;ANY P-TABLES left? 
;Ng^GO TO END 
;GET A P-TABLE 



;get CSR 
JGET VECTOR 
;SKIP PAST BR 
;GET DRIVE 

;next potable 



;next drive 



JGET beginning OF BUFF 

mi ^r^um im 



) 



iSSEHBLY ROUTINES HACVll 
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022264 062706 000004 
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:? 



HE] IM mm 
mm 



Mm 



« 11 



§ mm mm """^ 



374 



027S62 



I mm mm mm 

027562 



11 mi 



add 
¥ehpI to 



#4/SP 



; initialize routine 
im attempt to loca 

5ACR0SS the pack 
>THE 5 SPOTS ARE 

I 



TE 5 PERFECT ADJACENT TRACKS AT 5 SPOTS 
(EACH SURFACE) 



, OUTER - TRACK 0-16 
> INNER - TRACK 238 - 254 
>MI0DLE - TRACK 120 - 136 
JD8E QUARTER - TRACK 56 - 72 
ITHREE QUARTER - TRACK 184 - 200 



;IF ME FIND ANY BAD SPOTS/ HE HILL REPORT SO. 



1$S 



2$t 
3$l 



020 



ptF 



MOV 
MOV 
MOV 
DEC 
BNE 

JSR 

J 

.BYTE 

TST 
BNE 

ERRHRD 
TRAP 

«ugBD 

.MORO 
.WORD 



JSR 
.BYTE 



|N|F 

6¥!i=li 

7^177/ (Rl)+ 

is 

R5/FNDTRK 

0,16. 

TRKFND 
2$ 

ig.#ERRFND,ERRl >N0 TRACKS 



^INDICATE A START COMMAND 



5¥S??f.gffE''SErfR!iJlcF 



;try to find five tracks 
;inhard search 
?top surface 
;track range 

;was search successful???? 

;YES 



ERR 
3$ 



RFND 



R5/FNDTRK 
0,16. 



ISTORE kMkI TRACKS FOUND 



mu°, II.... 



D FIVE TRACKS 
RCH 



ASSEMBLY ROUT 
CZRLFB.Pll 



w 




MACYll 30A(1052) 22-NOV-78 15:54 PAGE 1-12 
15:47 INITIALIZATION SECTION 



027562 

210 
002756 



4$: 
5S: 



6S: 
7S: 



8$: 
9$: 



TST 

BNE 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

MOV 
JSR 
JSR 

o' 

.BYTE 

TST 
BNB 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

MOV 
JSR 

JSR 

I' 

.BYTE 

TST 
BNE 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

HOV 
JSR 

JSR 
1 


.BYTE 

TST 
BNE 



TRKFND 
4$ 



;WAS 

JYES 



SEARCH SUCCESSFUL???? 



10.£ERRFND,ERR1 
TSERCODE 

ERRFND 

R5/FNDTRK 

254. ,238. 

TRKFND 
6$ 

10. /ERRFND, ERRl 
TSERCODE 

ERRFND 
^RRl 

#INN10,R0 
R5,FIXCYL 

R5/FNDTRK 

254. ,238. 

TRKFND 
8$ 

10., ERRFND, ERRl 
TSERCODE 

ERRFND 

ERRl 

9$ 

R5,FNDTRK 

126. ,136. 

TRKFND 
10$ 



!N0 TRACKS 



;store tracks away 

jfind next 5 track 
;outward search 
;top surface 
;track range 

;was search successful? 
;yes 



;no tracks 



jskip 

;st0re away tracks found 



;NEXT SET 
;OUTWARD SEARCH 
;BOTTOM SURFACE 
;TRACK RANGE 

;SEARCH SUCCESSFUL? 

;yes 



;store away tracks found 

jnext set 
;inward search 
;top surface 
;track range 

;did we find a set 
;yes 



ASSEMBLY ROUTINES 
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Joo§o5 




110 
002756 



10$: 
11$: 



12$: 
13$: 



JSR 

.BYTE 

TST 
BNE 

TRAP 
.WORD 
.WORD 
.WORD 



MOV 
JSR 

JSR 

1 

• BYTE 

TST 

BNE 

JSR 
-1 
1 
.BYTE 

TST 

BNE 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

BR 



JSR 
1 

.BYTE 



mm 

000000 



TST 
BNE 

JSR 
-1 





R5,FNDTRK 
130. ,120. 



TRKFND 
10$ 

10., ERRFND, ERRl 
TSERCODE 

ERRFND 

IIV 

#MID10,R0 
R5,FIXCYL 

R5,FNDTRK 

126. ,136. 

TRKFND 
12$ 

R5,FNDTRK 

130. ,120. 

TRKFND 
12$ 

10., ERRFND, ERRl 
TSERCODE 

ERRFND 

R5,FNDTRK 

62. ,72. 

TRKFND 
14$ 

R5,FNDTRK 



;NEXT set (OTHER SIDE) 

;outward search 
;top surface 
;track range 

;did we find a set 
;yes 



;no tracks 



;store away 



;next set 
jinward search 
;bottom surface 

;RANGE 

jsuccess? 
;yes 

;look the other side 

;0UTWAR0 

;bottom surface 
;range 

jsuccess? 
;yes 



;no tracks 



;ST0RE AWAY THE TRACKS FOUND 

;next set 

;INWARD 
?TOP SURFACE 
;RANGE 

;SUCCESS? 

;yes 

;L00K OTHER SIDE 

;OUTUARD 

;T0P SURFACE 



# t 



czmm^pu 22«Kov«?i ism 

022170 102 070 

mm mm """ 



3©I€lQi2) 22«H0V«78 lSiS4 PAGE 1«14 
lUinhLUkflQU SiCTIOM 



811811 mm mm 



III mill 



37 027S62 



81181? 

mm 



mm 
mui 



M ^ 



110 
002756 



070 
002756 



mm mm mm 



027562 



mm mm """* 

Q23124 004537 027562 

023130 177777 

0||£|2 000000 

8iiii! mm 



270 
002756 



SEQ 0040 



14$: 
15$s 



16$: 
17S! 



«B¥fi 

III 
IIJHRO 

■|l 

MOV 
JSR 



TSf 

BNB 

JSR 

.BYTE 
TST 



ERRHRD 

tRAP 

.WORD 

.MORO 

.WORD 



MOV 
JSR 






IRSNGI 



JIIJCESS? 



pm mkCKS 



iv 



) 



RS^FNDTRK 



»By?E 62.^72. 



TRKFND 
16$ 



R5/FNDTRK 

66. ,56. 

TRKPND 
16$ 

iO.^BRRFNO/ERRl 
SERCODE 
RRFND 

R5,FNDTRK 



ISTORE AWAY NEXT SET 



3l00k for next set 
;range 

^SUCCESS? 

;yes 

;LQOK FOR another SET 

;RANGE 

;SUCCESS? 
?YES 



JNO TRACKS 



;STORE AWAY TRACKS 



.BYTE 190., 200. 

TRKFND 
18$ 

R5/FUDTRK 



II 



TST 
BNE 

JSR 
-1 

.BYTE 

TST 
BNE 



194./184« 



TRKFND 
18$ 



JHEXT SET OF TRACKS 
jINKARD 
"OP SURFACE 
ANGE 

;SUCCESS? 

;yes 

;look other side 

;OOTWARD SEARCH 

;TgP 
;rahge 

;succESS 

>YES 



ASSSMBL? RDUflHSS 
CZRLFB^Pll 22-llO¥«78 
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MACYll 
15S47 
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mn mm 
mm mm 

mm mm 



_„--74 000003 

mil um 

g|||02 013700 



mn 



mm 

027562 

310 
002756 

027S62 

270 
002756 



mm 
ii 



18$S 
19$3 



ir \i 



20$I 

21SS 
22$: 



CMPENA; 
24$: 



||?HRD 
BR 

m 

JSR 

,BYTE 

m 

JSR 
.BYTE 

:m 

.»ORD 
BR 

DEC 

BNE 

ERRSF 

TRAP 

«»ORD 

.i^ORD 

CLR 

MOV 

DODU 

MOV 

iMT 

!hc 

DEC 
BNE 
DOCLN 



.,ERRFND/ERR1 7N0 TRACKS 
ERCODE 



RFND 

R5,FHDTRK 

190. ,200. 
JR|f»D 

R5,rNDTRK 

194., 184, 
|R|FHD 

0.,ERRFND,ERR1 >N0 TRACKS 
SERCODE 

_RRFND 

gRRl 

21$ 



;store tracks away 
;next_set 



ARD 

*"0M SURFACE 

:E 



llllfl 

;|gfTOM 



Mil- 



3., none 

T$ERCODE 

3 

NONE 

LSUNIT,R0 

R1,R0 
CSDDDU 



24$ 



;storb set away 

;did we find any at all 



;Da DROP unit 
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(3) 023320 104044 EMT CSDCLN 



023322 
023322 



023324 
023324 



EXIT: 

ENDINIT 
L10007: 

EMT CSINIT 

ENDMQD 

BGNMOD CLNCODE 



023324 000240 



BGNCLN 



023326 
823326 
023326 104012 



023330 
023330 



023334 
023334 



000240 
104055 



334 010046 

336 010146 

340 010246 

342 010346 

^344 005000 

3346 012537 

3352 012537 

356 012701 

362 011102 

,364 121227 

3370 001464 



002626 

mm 



ENDMQD 

BGNMOD DRPCODE 
BGNDU 
NOP 
ENDDU 

LlOOll: 

EMT CSDU 

ENDMQD 
-SBTTL GLOBAL SUBROUTINES SECTION 
BGNMOD GLBSUB 

;ALL COMMON OR GLOBAL SUBROUTINES GO HERE 

JROUTINE TO PERFORM OVERWRITE 
;CALL; JSR R5,0VWPER 
; SECTORS TO WRITE FORWARD 
> SECTORS TO WRITE REVERSE 



OVWPER: 



is: 



HOV 
MOV 
MOV 
MOV 
CLR 
MOV 
MOV 

HOV 
MOV 
CMPB 
BEQ 



RO/-(SP) 
R1/-(SP) 

R§/-(SP) 
RO 

(R5)+/F0RSK 
<R5>+/REVSK 

#0VWTRK,R1 

(Rl)/R2 

1R25;#-1 



;SAVE RO, Rl/ R2# R3 



;ro has count if R0<5- 

;USE TOP SURFACE, IF R0>5. 
;USE BOTTOM SURFACE, IF R0>1 
;D0NE. 

;get start of list of tracks 
;get pointer to track 
ilegit track?????? 

?N0# EXIT 
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005032 
020027 
002402 
10S237 
004537 

"ill 

ilfp 

000034 
012737 
004537 
004537 
105037 
052737 
004537 




mil 

Q02721 
024716 
002720 
002720 
024716 

mm 

.7635 
>5622 
-J 62 06 
002720 
000377 
024716 

mm 



017 
026 



002722 
023566 

mm 

026206 



m 



003030 
000200 
000006 



2$: 



002716 
002720 



002716 



3$: 



CLR 

CMP 

BLT 

INCB 

JSR 

CLRB 

BISB 

JSR 

MOV 

JSR 

.WORD 

MOV 

JSR 

JSR 

CLRB 

BIS 

JSR 

CLRB 
BISB 
JSR 

HOV 

JSR 

.WORD 

MOV 

JSR 

JSR 

TST 
INC 
CMP 

BNE 

NOV 
MOV 
MOV 
MOV 
RTS 



DESCYL 
R0,#5 

DESCYL+1 

R5£SKCYL 

DESCYL 

(R2), DESCYL 

R5#SKCYL 

F0RSK,R3 

R5,WRSEC 

28^ 

#FWD/DIRC 

R5,VER0W 

R5,VER0D 

DESCYL 

#377#DESCYL 

R5,SKCYL 

DESCYL 

(R2)/DESCYL 

R5,SKCYL 

REVSKeR3 
R5/WRSEC 
28. 

Irev^dirc 

R5,VER0U 
R5,VER0D 

R0,#10. 

(SP)+,R3 
(SpU,R2 
(SP)+,R1 
(SP)+,RO 



;CLEAR CYLINDER/HEAD FOR SEEK 

;TOP/BOTTOM 

;T0P, BRANCH 

;BOTTaM SURFACE 

;SEEK TO CYLINDER 



;SEEK TO PROPER CYLINDER 
;SECTORS TO WRITE 
;G0 write SECTORS 

JSET FORWARD DIRECTION 
;VERIFY OVERWRITE 
?VERIFY OTHER DRIVES DATA 
;SET UP FOR SEEK TO 
;INNER GUARD BAND 
;D0 THE SEEK 

>SET UP FOR SEEK TO 
;DESIRED TRACK 

;dq another seek 

;sectors to write 
;write them 

;set direction 
;verify overwrite 
;verify other drives data 

mncrement to next track 

;ACC0UNT FOR IT 

;DONE? 

;Na, GO BACK 

>RESTORE REG. 



;exit 



;ROUTINE TO WRITE SECTORS 

;USED IN OVERWRITE TEST J ADJACENT CYLINDER TEST 

;CALL JSR R5/WRSEC 

Ir3 H»S bJ?8«P QP sectors to -Rlti"""'"= =^"™ 
;R4 HAS DRIVE BUFFER POINTER 



WRSEC: 



2S: 



HOV 
HOV 
HOV 
MOV 
MOV 
MOV 
DEC 
BNE 



RO/-(SP) 
R1,-(SP) 
R2,-(SP) 

#bGf,ri 

#128. /R2 
PaT(R4),(R1)+ 

2$ 



;SAVE RO 
;SAVE Rl 
JSAVE R2 
;WRITE PATTERN INTO 

;memory that WE 

;WILL WRITE ONTO 
;PACK FOR THIS 
?DRIVE 



ASSENBL¥ ROUfll^BS MCHll 
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016 QP037 8S?2}i 

4840 opifl Uim 

24046 OOSO3I 002704 



002720 



mu 



003014 



6SS 
11$: 



10$! 



5$: 



m 



MOV 



BEQ 

CLR 
MOV 
MOV 
MOV 
BtC 
CMP 
BLB 
SUB 
HOV 
MOV 
JSR 
MRITE 



iS'i 
BML 
ERRSQFT 

.WORD 
.WORD 

IF 

I'M 

.MORD 



|00/DESCYL 

HSFLG 

llo.^BDA 
fBUF/BBA 

IgFLG 

HSFLG 

100.,HRIT1/ERR2 
fSBRCODE 

iic 

iiO.£WRITUERR2 
fSERCODE 

MRITl 
ERR2 



BCC 
MOV 
MOV 
MOV 
RfS 



CLR 
CLR 
MOV 
MOV 
MOV 
BHr 
CL 



R2 



M 



1 II 



HEADOl 
^ #ADJUOT 

5)+,SdJL0C 



SEa 0044 



MASK FOP BIT MIP 



ADDRESS 



ml Milium 

?N0 

ILOAD MORD COUNT 
JLOAD DISK ADDRESS 
;SAVE DISK ADDRESS 



) 



rLQAD BUS ADDRESS 
RESTORE I --- 

;GQ WRITE 



>RESTOR| DISK ADDRESS 
-"" ""ITE 



l§8J8 



IN WRITING 



IDQNB? 



R 

Y BIT 



m 



;INSIDE/OUTSIDE TRACK FLAG 
;INIf TO TOP SURFACE 
;START OF TRACK LIST 

;PICK UP TRACK OFFSET 
;IS THERE ONE? 



) 
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^g?>+ 



^34./STSEC 
t40./STSEC 



|R2),#377 



R5,SKCYL 

#377, R3 
|39.#STSEC 

SS^WRSBC 
STSEC/STSECl 



;no exit 

;yeS/ get rest of info 



>GET offset 
JSTARTI 



flNG SECTOR IS 16 

;get start into R2 
;dohn COUNT offset 

JFOUND IT? 
)INDEX £R2) 

;n0/ next sector 

jback for next 

;legal track? 
jyes/ continue 

;n0 pick up next set 

;set up for outer track 

JWHICH HEAD? 
hop, SKIP 

;loher head, set iti 
>seek to outer track 
jget desired track 



III 



|K TO.IT 

Ur 



WRITE 
BYTE 



mum jygR 

IWRITE SECTORS 
^VERIFY THIS WRITE 

;GET OTHER SECTORS TO WRITE 



A 



1 



ASSEMBLY ROUTI 
CZRLFB.Pll 

881 024316 

m mm 

884 

m """" 

887 024342 
889 024346 



NES 
22-N0V-78 



MACYll 
15147 



30A(1052) 22-NOV-78 1 
GLOBAL SUBROUT 



24354 
24360 



m 

024376 
024404 

024412 
024420 

024424 

024430 
024434 
024442 

024446 
024450 
024454 

024462 
024466 

024516 
9I452O 
024524 

024532 
024536 



062737 
022737 
002003 



162737 

013703 

013737 

004537 
OOQOOQ 
013737 

mi 

013737 

112737 
004537 

111237 

004537 

mm 



01 



0303 



004537 
000000 

013737 
004537 

mm 

904537 
000000 

mm 

000000 



000010 

000047 



000050 

003016 

003024 

023566 

024360 
026534 

024374 
026770 

000377 
024716 



024716 



024466 
026534 

mm 

023566 



003024 
003024 

003024 

024360 

024374 
024410 
002720 



9$: 

10$: 

110$: 

210$: 



024502 
024516 

024536 



lis: 

111$: 
211$: 

12$: 



ADD 
CMP 
BGE 

SUB 

MOV 

MOV 

JSR 

.WORD 

MOV 

JSR 

.WORD 

MOV 

JSR 

.WORD 

MOVB 

JSR 

MOVB 

JSR 
MOV 
MOVB 

SWAB 

BIC 

MOV 

JSR 

.WORD 

MOV 

JSR 

.WORD 

MOV 

JSR 

.WORD 

MOV 

MOV 

JSR 
.WORD 



5:54 PAGE 1-20 
INES SECTION 



ttS.^STSECl 
|39.,STSEC1 



#40.,STSEC1 

ADJLC2,R3 

STSECl^lOS 

R5,WRSEC 

10$, 110$ 
R5,VAJHR 

R5,B§VWR 

#377,DESCYL 
R5,SKCYL 

(R2),DESCYL 

RSfcSKCYL 

#REV,piRC 

A0JLC3+1,R3 

R3 

ItseC/Iis 

R5/WRSEC 




lll$i-211$ 

R5,BSVWR 



ADJLC4/R3 

STSEC1,12$ 

R5,WRSEC 




;8 SECTORS GONE BY 
;G0NE PAST 40? 

;n0/ okay 

;YES BACK IT UP 
>GET SECTORS TO WRITE 
;STARTING SECTORS 
>WR1TE SECTORS 

;VERIFY this WRITE 

;verify adj cyl + 1 
?seek to inner track 

;SEEK BACK TO PROPER TRACK 

;SEEK TO PROPER CYLINDER 

;SEEK DIRECTION 

;GET SECTORS TO WRITE 

;ALIGN IT 

yCLEAR OUT HIGH BYTE 

JWRITE PROPER SECTOR 



JVERIFY THIS WRITE 



;GET SECTORS 

;GET SECTORS TO WRITE 



;WRITE PROPER SECTORS 



m 



24540 
24546 
24552 



013737 
004537 
000000 



024536 024552 
026534 



112$: 



MOV 12$, 112$ 
"5,VAJWR 



JSR 

.WORD 



I'' 



;VERIFY THIS WRITE 



III 



024554 
824562 
024566 



000000 



umi "^=" 



212$: 



MOV 

JSR R 

.WORD 



-5/i§VWR 



;VERIFY ADJ CYLINDERS ♦ 1 
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SFQ 0047 



m 

944 
945 

946 
947 
948 
949 
950 
951 
952 
953 
954 

lit 

957 
958 
959 

III 

963 

968 
969 



m m 

14602 000402 

' "■ mm 

020127 



m 



6246i0 
024614 
024620 
024622 



024626 
024632 
024634 

8|il15 

mt 

024654 
024660 

"un 

4704 
4706 
4710 
4714 



mm 

005037 
000421 
0057|7 

000137 
005037 

001402 

mm 

001376 
005037 
000205 



002714 
002714 

mill 

002205 
024070 



002664 

002664 

003012 

003012 
024034 
003012 
003014 
003014 

024034 



m 



002726 



TST 

BNE 

INC 

BR 

CLR 

ADD 

CMP 

BGE 

JMP 



HEADOl 

MIdoi 

99s 
HEADOl 



i;#INN51 



;WHICH HEAD WERE WE DOING? 



;NEXT SET OF TRACKS 
;NEXT SET OF TRACKS 
JEND OF LIST 
;END OF TRACK LIST 
?N0 GO BACK 



;AT END OF TRACK LIST NEXT GROUP OF WRITES 



18$: 
15$: 
16$: 

17$: 



TST 

BEQ 

CLR 

BR 

TST 

BNE 

INC 

JMP 

CLR 

INC 

CMP 

BEQ 

JMP 

TST 

BNE 

CLR 

RTS 



FADJ 

15$ 

FADJ 

17S 

ADJTRK 

16$ 

ADJTRK 

21s 

ADJTRK 

ADJUUT 

ADJUUT,UUT 

17| 

hr 

AOJDIR 
R5 



FIRST SET? 

NO, CONTINUE 

YES, CLEAR FIRST 

EXIT 

DONE BOTH INSIDE OUTSIDE 

TRACKS, YES 16$ 

NO/ SET INSIDE FLAG 

GO DO INSIDE TRACK 

BACK TO OUTSIDE TRACK 

DONE WITH ANOTHER 

DONE TABLE FOR ALL UUT? 

YES/ FOR EXIT 

NO, GO BACK FOR NEXT 

BUMP EXIT TO END OF 

TABLE FOR PROPER RETURN 

EXIT 



SROUTINE TO SEEK TO A DESIRED CYLINDER 

;CALL: JSR R5,SKCYL 

?ROUTINE HAS DESIRED CYLINDER IN LOC "DESCYL" 



l?l 

976 
977 

m 

980 
981 

tit 

986 
987 

III 
II? 

992 



mm 

024724 

024734 
02 

of 

02 



24736 
24742 
14744 

'4760 

>4762 
_J4764 
024766 

024772 .-^^^ 
024776 03573 



8^453^ 030560 
000010 

005737 002674 
001074 



005001 

lum 
hm 

005401 
000402 
052701 
052701 



I'olh'il 



000004 
000001 
000400 



ki'^r- 


MOV 
JSR 
RDHDR 


urdiUc 




TST 


ERFLG 




BNE 


5$ 




CLR 


Rl 




BISB 


DESCYL/Rl 




SWAB 


Rl 




ROR 


«}77/E.MP 

Lmp,ri 




BIC 














NEG 


Rl 




BR 


21 


m 


BIS 


|SIGN,R1 
i40D,DESC' 


BIS 




BIT 



;SAVE Rl 

?GET PRESENT POSITION 



;ERR0R FLAG SET 
JYES, SKIP 



;GET DESIRED CYLINDER 
>GET IN HIGH BYTE 
?ALIGN IT 

jclear present hd:sec 
kalculate difference word 
jif positive set direction 
;negate 

JSKIP setting DIRECTION 
;SET for forward SEEK 
?SET MARKER BIT 
JWHICH HEAD 



« t 
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mm mm """^ 

25032 



;l IWS Uml 



ni 8i 






02S142 



„-_50 
45154 
025160 

ink 



m 



-„01l. 
001414 



0446 



mm 
nmt 

012746 
012746 

mm 



030560 
002674 
000077 
002720 



3004 
3002 
3000 



nmi 



GLOBAL SUBROUflNES SECTION 

Ikhs 



3$ I 



000400 002720 



4SS 



5SS 



6$s 



fSt 

BMB 

JSR 
iBPR 

BIC 
CLR 

iiie 

RQR 
BIT 

ifi 

CMP 

BEQ 

ERRDF 
TRAP 
.HORD 
.HORD 



RFL 
S 

5^L 

||FL 



UNC 



||FLG 

RS^LDFUNC 
5FLG 
,E.MP 
DESCYL/Rl 

lOO^DESCYL 

riEAD^Rl 
-l^B.MP 
6S 

12-£SKER/ERR6 
fSEfiCODE 

l4 

SKER 
ERR6 
90$ 






PF|R|NCE WORD 



I ERROR? 
?VES/ SKIP 

^VERIFY POSITION? 



;VERIFY POSITION 

;IS CORRECT AND IF 
;NpT CORRECT THEN 



;SEEK ERROR 



) 



13„gF0NERR#ERR5 IFUNCTIQN ERROR IN SEEK 



Mm Ionerr 

IgRD |R|5 



MOV 
RTS 



JCANT GET THERE 

;exit 



IROUTIME TO PERFORM REGISTER PRINTOUT DUMP 



jcall: 

REGDMP 



JSR 

PRINTB 

MOV 

MO? 

MOV 

MOV 

MOV 

MOV 

MOV 

EHT 

ADD 

PRIHTB 

MOV 

MOV 



PCirREGDMP 

|frm12,bcs,bba,bda,bmp 
bda'"(spJ 

BBA/-(SpS 
BCS,-(SP5 
|FRH12£-(SP) 

SP*RO 

CSPMTB 

#14^SP 

#FRMi3/E.CS,E,BA^E-DA/E.MP 

E.MP^-tSPl 

i.DAj-(SP) 



) 



ASSEMBLf ROUTIMES 
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oif 



m 
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025354 010146 



mm mm 



000006 002106 



mil 



2$S 



l$s 



000034 



mm 



MOV 
MOV 

KB? 
ill 



|||HtB 

MOV 
MOV 
EMT 
ADD 



E-BA,-(SP) 
E-CS^-(SP) 

C§fNTB 

IT14/E-CS 



P) 



B(B4 



Jgff 



ar.RO 



JORIVE 



TINE 

rVE Gi 

SETLSfS MOV 



SET 



TEN FROM R4 

R1#-(SP) 
|28,,R0 



H SECTOR LIST 

;ro I 



HAS SECTOR 



ISAVE Rl 

;START LIST AT 



III 



2$S 



MOV 
TST 

m 

TST 

MOV 
RTS 



#40, ^RO 
iSECLST/Rl 






;beginnin6 of s 

^decrement sector 
inext intry in list 



.SECTOR LIST 
)DECR&MENT sIcTOR 

hi 



DRIVE BITS IN LIST 



^l9ySIHf»l9«S|ORE OR RETRIEVE ADJACENT CVL 
>iNFgRMAT|pN^FROM THE 24X5 "SECLST»i BUFFER 



INDER SECTOR DRIVE 



fcALL i 

-CALL 21 

SADJSS 



[ 



MOV 
MOV 



ADJAC|NT CYLINDER DRIVE INFORMATION FOR SECTOR 

0„|P^SECTOR REQUESTED IS NOT IN BUFFER MAP 

''SLBS/RSADJS 

aWORD^ ;RETRIEVE sector INFO, 

JSR R5/RSADJS 

aWORD I JSTORE SECTOR INFO. 



ASSEMBLY ROUTINES 
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s im. 



i627( 

w 

0200L, 
_^ 001415 

8 iifi mu 

gfsile 020327 

mil 

001365 
005737 

mm 
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MOV (R5)+,ADJFLG 

MOV iURl 

MOV PECBUF/R2 

MOV il6.,R3 

CMPB ADJLOCRl 

!i8 l\ 

ADD #48. /R2 

ADD l34.«R3 

CMP ft3,#l0. 

BLT 1$ 

SUB #40.,R3 

MOV |24.,R1 

35: CMP ftO/R3 

BEQ 5$ 

TST p2) + 

000047 CMP R3,#39. 

BLE 4S 

000050 SUB #40.,R3 

DEC Rl 

BNE 31 

CLR RO 

BR 7$ 

TST ADJFLG 

BEQ 6$ 

MOV R4,(R2) 

MOV (R2),R0 

MOV (SP)+/R3 




4$: 



5$: 






;SAVE SECTOR BITS 

?SAVE RETRIEVE/STORE FLAG 

;START WITH TRACK (N-2) 

;START OF 24X5 BUFFER 

;SECTOR 16 START FOR (N-2) TRACK 

KHECK TRACK INDEX 

?INDEX TRACK REFERENCE 
JUPDATE BUFFER Tg.NEXT 



TO NEX. 

UPDATE SECTOR START FOR NEXT 



TRACK REF. 
~ NEXT TRACK 



;set counter for 24 sectors 
;compare sector to sector table 
;yes,store or retrieve sector info. 
;indIx seclst buffer in word format 

; INDEX sector count 

KOMPARB SECTOR COUNT FOR <40 

;KEEP SECTOR COUNT<40 
/PASSED_24 SECTORS? 



COMPARE NEXT SECTOR 
;SETUP RO FOR EXIT 
;EXIT ROUTINE, SECTOR NOT FOUND 
;FLAG=0 FOR RETRIEVE 

;STORE DRIVE INFO. INTO BUFFER 
>SAVE DRIVE INFO. INTO RO FOR EXIT 
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012602 




MOV 
MOV 
RTS 



(SP)+, 



JROUTIHB TO LOCATE DRIVE THAT WROTE SECTOR LAST 
JCALL: JSR R5,FNDDRV ;R0-CONTAINS SECTOR 

>0N EXIT PO-DRIVE 



2$: 



MOV 

SUB 

BPL 

ADD 

MOV 

TST 

BEQ 

DEC 

TST 

BR 

MOV 

MOV 

RTS 



Rl«-(SP) 

|28.,R0 




JSAVE Rl 
;START LIST 



;START OF LIST 
;FDUND SECTOR? 



(R1),R0 
(SP)+/R1 



;YES, get DRIVE k, EXIT 

;NC, DOWN COUNT SECTOR 

JNEXT ENTRY IN LIST 

;G0 BACK 

;GET DRIVE BUFFER POINTER 

>RESTORR Rl 

;EXIT 



ROUTINE TO VERIFY THAT THE OVERWRITE DID ACTUALLY OVERWRITE THE 
PREVIOUS DATA ON THE PACK. 



002762 



017112 
000000 
000005 



002734 

003004 
003000 
003002 
003002 



002672 
002670 
002732 



CALL: JSR 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



017361 002672 21$: 



MOV 
MOV 
BIC 
BIS 
BIT 
BEQ 
JSR 
READ 

TST 
BPL 

TST 

BEQ 

MOV 

MOV 

MOV 

BR 

MOV 



R5/VER0W 



R0,-(SP) 
R1/-(SP) 
R2<-(SPi 

#28.4,SECT 

il00D00,Rl 

PAT(R4),GDATA 

1-128. ^BMP 

Ibuf-bba 

|77.BDA 

SKCT/BDA 

R1,R3 

i?i/LDFUNC 



USES R3 AS BIT MAP OF SECTORS TO 
CHECK. R3 IS LOADED PRIOR TO 
WRITING SECTORS. 

?SAVE REGISTER CONTENTS 



;STAFT VERIFY AT SECTOR 28 
;BIT MASK FOR VERIFICATION 
;GET PATTERN FOR THIS DRIVE 

;SET UP READ-ONE SECTOR 

;BUS ADDRESS 

;CLEAR OUT SECTOR BITS 

;SET SECTOR 

;D0 we READ THIS ONE? 

;N0| BRANCH 

;read 

; ERROR 

>N0 CONTINUE 

HNITIAL WRITE 

?N0 

;SETUP INITIAL WRITE OF SECTOR 



E.CS 
4S 

FOWR 

21s 

#INITWP, REASON 

CSR(R4)/LSTCLR 

DSB+1(R4),LSTDRw 

22s 

#OVMES, REASON ?SET MESSAGE FOR OVERWRITE 



ASSEMBL¥ ROUflHES 






22-NO¥«18 1SI47 



M|cvii i^kiiQsi) ii^um-'iB ntsi pAeg_.2»i 




ill M 

026132 062706 000006 

'oiim mii^ mii 



000200 



'Hm 



000050 002730 



GLOBAL SUBROOfiNEB SECflOM 

Ml 



SEQ 00S2 



mm 



22$t 



3$2 



3111 



4$t 

5$ I 

6$S 



w 



MDV 

i 



MOV 
EMT 
ADD 



£NC 

CMP 



m 

tn 



Si|(?92»tsmE„ >ost It's csR 

flgRCODE 



IIINg^plVE fHAT LASf ^ROfg 
Vg 



WCOUNt 

Ml 



R2) 



i|CWRD,.#128. 

CfiPNTF 
#6/SP 

SECT^RO 
RS^SETLST 

SECT 
SECT, #40. 

#40., SECT 



?IS DATA CORRECT? 
;¥ES CHECK NEXT 
INO ACCQUNT FOR IT 
TA,(R2) 



o 



W/IM SECTOR 



'S 



?PRINT SUMMARY 



;Sp SECTOR IN LIST TO THE 
;CREDIT OF THIS DRIVE 



;next sector 



PS+iRO 



^RESTORE R2-R0, EXIT 



- CARRY 
i BIT 

Clear next 



) 



|ROUfINE TO VERIFY THAT A DRIVE CAN RECOVER ANOTHER DRIVE'S DATA. 
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■■It' 



Ut 



26330 

ill 

Hn 



26374 

026376 
-26402 

mn 

20 



PI' 



mm 

005737 

mm 



Ml 



002762 
017414 



ill 



mi 



005237 002740 



ill 



026434 



6430 862706 



ti urn 



734 
742 
162 
004 



62IJ6 
005722 



000012 



;CALL| JSR 



l$l 

2$i 



3$: 



4$s 



MOV 
MOV 



MDV 

JSR 

MOV 

MQVB 

MOV 

J§R 
READ 

TST 

BPL 

MOV 

ERRDF 

TRAP 

«MORD 

.MORD 

.WORD 

CLR 
CLR 
MOV 
CMP 

BEQ 

INC 

PRINTF 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

TST 



RS^VIRDD 






llhUlKill3 '^^^^^'-^ 



SEQ 0053 



;SAVE R0-R2 



JBIT MASK^FDR^SECIPRS 

-.. ^ iSTART WITH SECTOR 
KHECK FOR FIRST OVERiRITE 



gUF^Bi 



BMP 

lA 
DA 



/DUO 

if 



iicFfiDpRV 
CS|(ROj^tSTCfcR 

R5,L0FUNC 



E.CS 
5$ 



8hLgfDRV U 
/GDATA }Qt 



>Mt VLSi^S <ONE SECTOR) 

;BUS ADDRESS 

EAR SECTQR BITS 
f IN SECTQR BITS 

;GET CSR OF DRIVE 

get drive 
t pattern 

;read 



? ERROR? 

;N0, next SECTOR 

?§iL8l*8„iSCQVERY MESSAGE 

;report error 



KLEAR BAD WORD COUNT 
JCLEAR word W/I SECTOR 
>START OF BUFPER 
;DATA COMPARE 
;YES/ CHECK NEXT 



JECMS,REAS0N 

RECER 
ERR4 

WCQUNT 

SECWRO 

#BUF-fR2 

9DATA,{R2) 

4$ 

SSSPP JACCOUNT FOR ERROR 

^ll?^S'fiS^RD'SDA^A'<R2) ;PRINT ERROR 

SECWRD/-fSf 

SP*RO 

C|PNTF 

#12,SP 

{R2)+ ;NEXT 



h 



'1 



) 
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002742 
002742 



INC 

CMP 
BNE 



SBCURD 
S|CtfRD/#12B. 



;next word IN 
;dqne? 

JNO 
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SEQ 0055 




000400 002720 
000100 



003002 
002666 
003000 



PRINTF #FRM9£WC0 
MOV WCOUNT/-( 

MOV #FRM9/(S 



5$: 
7$: 
6S: 



MOV 
MOV 
EMT 
ADD 

INC 
CMP 
BNE 
CLR 
CLC 
ROR 
BCC 

MOV 
MOV 
MOV 
RTS 



CSPNTF 
#6,SP 

SECT 
S|CT^#40. 

SECT 

Rl 
IS 



iNT 



) + /R2 



?PRTNT SUMMARY 



;NEXT SECTOR 



?NEXT BIT MAP 
^RESTORE R2-R0, EXIT 



;ROUTINE TO VERIFY THE ADJ. CYL. WRITE IS GOOD 
;USES R3 AND WORD FOLLOWING CALL 
;IF MRITE WAS GOOD#SECTOR WILL BE STORED IN MAP 
;USING RSADJS/.WORD 1 



3S: 
4S: 



6$: 
10$: 



MOV 

MOV 

MOV 

MOV 

MOV 

CLRB 

BISB 

SWAB 

ROR 

BIT 

BEQ 

BIS 

BIS 

BIT 

BEQ 

MOV 

MOV 

MOV 

BIC 

CMP 

BLE 

SUB 

SUB 

MOV 

CLR 

MOV 

JSR 

READ 



#100000,R1 

DESCYL/RO 

|400,DESCYL 

R|.R3 

1-128. ^BMP 

RO/BDA 

RO^TEHP 

frl77700,R0 

|0/#39. 

#40.,eDA 
HO. /TEMP 

TEMP,RO 
R5/LDFUNC 



;SAVE REGISTERS 



;BIT MASK FOR CYLINDER 
;STARTING SECTOR 



;READ FUNCTION 
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Ills 

7$l 
5$S 




D1,BRR2 



) 



saggl"'^"" 



.WORD 1 

MOV (SP)*,RO JRESTORE RO 

s 



;STORE ADJ. CYL. SECTOR INFO. 




WRITE DID NOT DISTURB ADJACENT TRACKS 

;STARTING SECTOR 
CYLINDER OFFSET 



>USES "ADJLOC" TO GET +1/-1 

?USES R3 FOR SECTOR MAP, USES MAP AT "SECBUF" FOR INFO 



bsvwr: 



MOV 

MOV 

MOV 

CMPB 

BEQ 



mmF 



000001 l$l 



i I 



SEXIT 
34., (SP) 



m-^ 



PCB 
INCB 
ADD 
CMP 



Ml 
a^CHECK 
lESCYL 
DJLQC 



(SP) 



;SAVE REGISTERS 

;SAVE PRESENT POSITION 
?GET STARTING SECTOR 
;0N MIDDLE TRACK??? 
;YES/ THEN NO CHECK 

iffi^SKff lesE^ifx" ^°« °"^^°^ 



?IF POSIT 



{on OUTER LIMIT??? 
>FIX BACK 



■^ 



m 



R SECTOR 

IN LIMITS??? 



START 
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BLT 
SUB 




000005 1$: 






6SI 



003004 



CMPB 



JSR 
DECB 

W 

MOV 
MOV 
MOV 
MOV 
JSR 
RTS 




SEQ 0057 



;yes, 

}FIX 



OKAY 
SECTOR 



J INNER LIMIT?? 
;YES,SKIP CHECK 
;FIX for INNER 

?G0 CHECK ADJ SECTORS 
JFIX BACK 

JTHRO'4 OFF SECTOR 
;GET OLD CYLINDER 



;SEEK BACK 

;return 



E TO VERIFY 
FROM isVWR 



AN ADJACENT SECTOR 



002730 



If 

BBQ 

BIS 

BIS 

BIT 

BEQ 

MOV 

BIC 

CMP 

BLT 

SUB 

SUB 

JSR 

.HQRD 

TST 

BBQ 

MQV 

Myv 

JSR 

READ 

TST 

BEQ 

MOV 

MOV 



\i 



SCYL,R2 



400/DESCYL 
EAD,R2 

^7700, RO 
/#40. ;SECTDR 



#40. /RO 

R5/RBADJS 



RO 

»{-l28.,BMP 
R5/LDFUNC 

ERFLG 
5S 

R3,-(SP> 

"■^S EG- 



GHEAD SET??? 
?N0 



ED CYLINDER 
SS 



;SET IN SECTOR 

>THIS SECTOR IN LIST??? 

>N0, NEXT 



'■■\ 



.-Jt 

COPY SECTOR 

;ONLY SE 

OKAY??? 



ONLY SECTOR LEFT 
JKAY??~ 

;yes 

>FIX SECTOR 

;FIND if SECTOR PREVIOUSLY WRITTEN 



IT?? 



DISK ADDRESS 



;WAS 

;no 

\tm 

;load 



;WAS READ GOOD 



R2/SECT 



ASSEMBLY ROUTINES 

22-NaV-78 



CZRLFB.Pll 
1402 027330 
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SEQ 0058 



111 



m 
iik 



02 

027352 

mil 

027356 
027360 

mm 

027366 

mm 



027374 
027376 



010003 

042737 

104463 
000214 
217227 
020054 
012603 

104463 
005202 

mo 



010146 
010246 

81737 

m 



2^ 



6% 



001421 



005 
00* 

001363 

mm 

062706 

mil 



177700 002730 



003430 
077724 

mm 

002674 



mil} 



003040 



003000 
003002 
003004 



003002 
003002 



5$: 



MOV 

BIC 

ERRHRD 

TRAP 

-WORD 

.WORD 

.WORD 

MOV 

ERRHRD 

TRAP 

.WORD 

.WORD 

.WORD 

INC 
CLC 
ROR 
BCC 
RTS 



R0/R3 

tl77700<SECT 

ADJTXT 

ERR3 

(SP)+,R3 

ilO.,READl,ERR2 

TSERCQDE 

READl 
ERR2 

R2 

Rl 
4S 



;NEXT SECTOR 
JSHIFT MASK 



;ROUTINE TO MERGE BAD SECTOR FILES 

;ENTRY INTO THIS ROUTINE WILL OCCUR AFTER THE "SERNUM" ROUTINE 

;|S PERFORMED. THE FACTORY BAD SECTOR FILE WILL BE LOCATED IN 

jFIRSf 400(8) LOCATIONS. 

;THIS ROUTINE WILL STORE THE FIELD BAD SECTORS INTO THE NEXT 

J400 LOCATIONS AND THEN MERGE THE FACTORY BAD FILE 

;WITH THE FIELD BAD FILE. 

;FACTORY BAD AT BUF 
;FIELD BAD AT BUF ♦ 512. 



MERGE: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

97$: JSR 
READ 
TST 
BEQ 
ADD 
CMP 
BNE 

PRINTF 
MOV 
MOV 
MOV 
EMT 
ADD 

999$: BREAK 
EMT 
BR 

98$: MOV 



R3,-(SP5 

#BUF+40fi£BPA 
#77724, BDA 
#-256., BMP 
R5/LDFUNC 

ERFLG 

97$ 

!FRM15 
FRM15^-(SP, 
P#RO 
CSPNTF 
#4/SP 

CSBRK 
#Buf+10,Rl 



;SAVE Rl, R2, R3 



jbuffee start for field bad 
?da of field bad sec. start 
?setup to read two sectors 
?load read function 

;test error flag 
?yes;merge bad sector files 
jtry next field bad sector file 
^completed field bad sectors? 
;no/do next field bad sector 



;GET PAST ID ETC. 



r 
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m 



i 



\tl 



im 



i ? mm um 

111 mm 88P? 

12524 000401 

7526 005741 

I753Q 012703 

17534 012702 

m mm 

!i544 012221 



02 000176 



450 



fiii 



027556 
027560 



)0530 
"01373 
012603 
"2602 
.2601 
10205 



027562 
027566 



mm 



000176 
003440 



12744 
12754 
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1$! 



4$: 



5$: 



MOV 

TST 

BMI 

TST 

DSC 

BNE 

BR 

TST 

MOV 

MOV 

MOV 

BMI 

MOV 

DEC 

BNE 

MOV 

MDV 

MOV 

RTS 




.126. /R3 

tBUF+410/R2 

|R2)+,(R1)+ 

2)+,(Rl)+ 



(R5 
(R5 



)♦, OFFSET 
)♦, SURFACE 



MAX = 126 

SECTOR OP. END 

END, GO GET FIELD 

REST OF SECTOR 

MAX REACHED 

NO, KEEP GOING 

YES, SKIP BACK UP 

BACK UP PAST TERMINATOR 

SET 126 MAX 

GET FIELD SECTORS 

MERGE AT END OF FACTORY 

DOME? 



;N0, MERGE REST OF SECTOR 

JDONE 

?N0, GO BACK 

;REST0RE R3, R2, Rl 



;GET INCREMENT/DECREMENT 
?GET head (SURFACE) 



% i 



iL¥ ROOTIHSS MICYll 
«P11 a2-IIO¥»78 1SS47 
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OOOOOS 



1$S 






002746 4Sl 



MOVB 
MpVB 
CLR 

MOV 

f 

INC 

III 



9027S2 S$s 



TRKrHD 

FRTTRK^PRSTRK 

R5,FIIDBSC 
HpFND 

tRKCNT 

Irkcnt 

|RKCNT,#5 

tIkfnd 

PIsfRK^LSftRK 
pFFSET^PRStRK 



\m\l BUI ?|i 



RACK 
A6 FOUND 



p*gK COUS 



IIS TRACK IN BAD SECTOR FILE 
>«|S IT? 



>V|3.:pt|JR,TRKCgJ 



) 



Iffel 



ATE GOOD TRACK 



OVER 
KS VET? 



m 



COUNT 



,_ pD , ,-.. 

;N0£ C0NTIN-_ 

?XSl-s EXIT WITH GOOD FLAG 



iROUfIHE TO FIND BAD TRACK IN FILE 



l$l 



4$: 
3$ 2 

2$s 






MOV 

TST 

BHI 

CMP 

BNE 

TSTB 

CMPB 

IsIb 

BR 

IHC 

BR 

m 

CMP 
BHE 
NOV 
MOV 
RTS 

MOV 

1ST 

BHI 

SUB 

MOV 

MOVB 

INC 

DEC 



IfFifliRl 

|sTRK,(Rl)* 

4) + 

URFACE^CRl) 



K4) + 
_URFAC 
4S 
-tR4) 



HDRFKD 
2$ 

jL#252, 

Jlt'M 



ii 



OFFSET 
if/(RO)+ 



mm\i%''''' 



3SETUP FOR BEGINNING OF FILE 

>|ND? 

>IF MINUS AT END£ EXIT 

jCVLINpER CORRECT? 

lupfER HALF OF WORD 
JCORRECT SURFACT 



;SET FOUND 



imuru n 

;ddhe? 

jno, keep checking 

;RESTaRE R2# Rl/ EXIT 



;get track which is good 

;WHICH WAV WERE WE LOOKING 
;IN WORD, BRANCH 
;BACK IT UP BY FOUR 
;GOING STORE AWAY 5 TRACKS 
;STORE THEM 
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mm mm 



m 



mm 

030560 

mil 



030160 

mm 



, 002674 



mu 



003006 
000002 



i 8! 



mm 
mm 

000005 



BNE 
RTS 



U 



003002 



iROUflHE TO GET SERIAL NUMBER 

?CALL 

SERNOMI 



111 



003001 



n mm 



003010 
003010 



98$: 



415 



P 
HDR 



CMP 
I HE 

%^ 

MOV 

Hi 

MOV 
MOV 
MOV 
MOV 
NOV 
MOV 



RS^SERNUM 

mdUuc 

RS,LDFUNC 
MP^BO 
7700 



m 



(INC 
RS#LDFUNC 

0,R0 



m 

1777 






ERFLG 



;GEf STATUS 

?RiAD HEADER 

I" 



lhl"M 



is- 



line !i 



ITS 

SEEK 

Qf SEEK 



mw 



fn^SERNMl 
||r1),SERNM2 

mir 

#FRM3j-CSP> 
|5,-(§P5 



iverify position 
Bad s_ _.. „ 

iREAD IN bad SECTOR FILE 

;rbad 

;TEST ERROR FLAG 
lYgSfCOMPARE SER 

jno^sItup for NE 

;GET NEXT 
;report ER..^,. 



RRO{ 
yg 6uT 
BRANCH 



AL NUMB! 
f FACTOJ 

eTdRY Sad si^ 



Y BAD SECTOR 



■■ ) 



ONE TO COMPARE 



VE ..^ _ 

;YKS/ bSan_ 

;no, call this one it 

?d|her half okay 

)#liRfiM2#SERNMl 



) 
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MOV 


SP,RO 
CSfNTF 

R5/GnL0AD 




EMT 




m 




JSR 

BR 


§Es!i8{" 


99$: 


Sg}"" 


#FRM15 




fc-=f'"" 




MOV 




KS;! 


ifSl 




ADO 


#4/SP 


999S: 


BREAK 






CSBRK 


5$: 


RTS 



;let operator change 

?PACK 

;G0 CHECK IT AGAIN. 

?MESSAGE 
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;ROUTINE UNLOAD 

;CALL JSR 

unload: PRINTF 

MOV 

CLR 

BISB 

MOV 

MOV 

MOV 

EMT 

ADD 

MOV 

MOV 

BIS 

MOV 
000000 2$: BIT 

BEQ 

WAITHS 

MOV 

EMT 

DEC 

BNE 

BR 
3$: RTS 



R5/UNL0AD 

D|y(R4J,!SP, 

CSPNTF 
#10, SP 
<?60.,R1 
|200,R0 
DSB(R4' 

po -'- 



:lsp) 



bSB(R4),R0 

P0^gCSR(R4) 

#DRDY/@CSR( 



;SETUP 60 SECOND TIMER 



5wff 



?CHECK ORDV FOR ZERO 
;PACK UNLOADED 
?ViAIT 1 SECOND 



;HAS 60 SEC PASSED? 
;N0# RETEST DRDY# CONTINUE WAIT 
;YES# REPEAT MESSAGE CONTINUE WATT 
;RETURN WITH PACK UNLOADED 



;routine load 

;CALL JSR 



000000 2S: 



sisiii 



001367 
000741 



PRINTF 

MOV 

CLR 

BISB 

MOV 

MOV 

MOV 

EMT 

ADD 

MOV 

MOV 

BIS 

MOV 

BIT 

BNE 

WAITMS 

MOV 

EMT 

DEC 

BNE 

BR 



R5,L0AD 

#FRM2/<B,DSB*1(R4)>,CSR(R4) 
CSR(R4),-(SP) 

DSB-»-i(R4),(SP) 

CSPNTF 

!10,SP 
200#R0 
SB(R4),R0 
R0#2CSRCR4) 
|DR0Y,@CSR(R4) 

#10. 

il0.,R0 

CSHTM 

Rl 

2$ 

LOAD 



;SETUP 120 SEC TIMER 
;SETUP CONTROLLER READY BIT 
;SELECT DRIVE 



^ i 
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oiff m 

mm 



372 

42S 




i? m 



002762 



3SS 



RTS 



IROOTINE LOrUNC 
ICALL JSR 

tmmct 



i$t 



m 

2774 




;LgAD BUS aooreIs 

;G|T FUNCTION TO LOilD 

jSELECt BITS 

ISET WATCHDOG TO 250MS 

ILOAD FUNCTION 



|S|fRggEAD¥? 

iWAlf 10 MILLISECONDS 



?READ ALL REGISTERS 



) 



.MPl 

./CfilfoT^ERRSjCNTLR TIMEOUT 



>READ ALL REGISTERS 



i'^.'Al 



}hm ERRORS? 
;YES, go SERVICE 
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^COMTROL SECTION COMPATABILITY PROGRAM 
>PiJMT UNLOAD, AND LOAD DRIVE MESSAGES 
>P5iE9S^ SERIAL CHECK ROUTINE 
^PERFORM READ/WRITE CHECKS ON DRIVES 



COMPATS 
4$S 



000002 



MOV 

m 

JSR 
|||400 

m 

IMC 
JSR 

»BVfE 

»«0R0 

-BYTE 

.WORD 

-WORD 

JSR 

ADD 

JSR 

JSR 

JSR 

ir 

INC 

JSR 

.BYTE 

.MORD 

,BYTE 

.iORD 

«BYTE 

'Am 
m 

BNE 



SECBUf^rRl 

MR 
^OVSPER 



FOMR 
FADJ 
ADJDIR 

170000 

rI^unlqad 

#PAT+2£R4 
R5,L0AD 
P5,SEPNUM 
RS^OVWPER 

ADJDIR 

R5,ADJCYL 

^/i60 

1^17 

4^360 

4^17 



;ADJ. 



mi--'' 



um^' 



BUFFER 
BUFFER 
BUFFE 



CYLINDER _ 
r-- CYLINDER B 

, Cear adj. CYL. 
;buffer cleared? 
;clear next buffer word 

?§SI„FIRSJ^gV.|RHRITEiy 



Ws 



ERHRITE ON FIRST DRIVE 



>SlfP5.0SST OVERWRITE 
;SET_FIRST ADJ. FLAG 

>TRACK AND SECTORS FOP 

;INWARD SEEK 

;TRACK AND SECTORS FOR 

;OUTWARD SEEK 

^TERMINATOR 

;UNLOAD PACK FROM DRIVE UNIT 

;UPDATE POINTER FOR NEXT DRIVE 

ILOAD^INTO SECOND DRIVE UNIT 

?CHECK PACK SERIAL NUMBER 

;PERFaRM R/W OVERWRITE 



HN 1/0 OUTSIDE 
>OUT 1/0 OUTSIDE 
HN 1/0 INSIDE 
lOUT 1/0 INSIDE 



lOS )ni,<iO to HEiiT DRIvi 



ASSEMBLY ROUTI 
CZRLFB.Pll 



NES 
22-NOV-78 



i 

w 



?40 



60 
__64 



p 

Mi 

ni 

372 
376 
400 

m mh 

761 031414 

762 031416 

Mi mm 

765 031424 



440 

m 

446 
450 
452 

778 631456 



4537 
6014 



UUUiJ I 

mm 

004537 

m 

001 

m 



007400 
004 

170000 
004 

007400 

000000 
001 

000000 
005 

OOOQOO 



062704 

mm 

010420 
005237 
004537 

000360 

'""III 

000360 

000000 

001 

000000 

000000 

005 

OOOJg} 

100000 



MACYU 
15J47 

031654 

mm 

030030 
023334 



imt 
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10$: 



000 
000 
000 
200 
100 
200 
100 



030360 
002726 



im 



002704 

000 
000 
000 
040 
020 
040 
020 
000 
000 



JMP 


25 


ADD 


muh'' 


JSR 




R5/SERNUM 


JSR 


R5/0VWPER 


INC 






ADJDIR 
RSgADJCYL 

1^0000 


JSR 


-BYTE 


.WORD 


-BYTE 


2,0 


.WORD 


7400 


.BYTE 


4,0 

170000 

4,0 


.WORD 


.BYTE 


.WORD 


7400 
|,200 


.BYTE 


.WORD 


l/lOO 


.BYTE 


5,200 




5,100 




I WORD 






JSR 


R5, UNLOAD 
Uuf,#3 

R5,L0AD 


i:mp 


BEQ 


ADD 


. SR 


JSR 


R5,SERNUM 


'lUo 


R5,0VWPER 




0420 






ADJDIR 




R5,ADJCYL 

Id 


.BYTE 


.WORD 


.BYTE 


y 


.WORD 


.BYTE 


Ui 


.WORD 


■Mil 


1,40 


.BYTE 


.WO 




.BY E 


1,20 


.WORD 




.BY E 
.WO D 


5,40 


5,20 


.BY E 


.WO 




.BY E 


DOOOO 


.WORD 


.BYTE 



?G0 TO FIRST DRIVE 

;UPDATE DRIVE BUFFER FOR THIRD DRIVE 

;LOAD PACK FOR THIRD DRIVE 

;CHECK SERIAL NUMBERS 

;PERFQRM R/W OVERWRITE ON THIRD DRIVE 



;in 2/0 outside 

;out 2/0 outside 

;in 2/0 inside 

;out 2/0 inside 

;in 2/1 outside 

;out 2/1 outside 

;in 2/1 inside 

>out 2/1 inside 

;terminator 

;unload pack on third drive 

JCHECK for > 3 DRIVES 

;N0, GO TO 2ND DRIVE 

JUPDATE DRIVE BUFFER FOR 4TH DRIVE 

;LOAD PACK ON 4TH DRIVE 

?CHECK PACK ON FOURTH DRIVE 

?PERFORM R/W OVERWRITE 



JIN 3/0 OUTSIDE 
;OUT 3/0 OUTSIDE 
;IN 3/0 INSIDE 
;OUT 3/0 INSIDE 
?IN 3/1 OUTSIDE 
?OUT 3/1 OUTSIDE 
;IN 3/1 INSIDE 
?OUT 3/1 INSIDE 
;IN 3/2 OUTSIDE 
;OUT 3/2 OUTSIDE 
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1$: 



2$: 



63 .. 
023334 



.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.WORD 

JSR 

SUB 

JSR 

JSR 

JSR 

20000 

10000 

JSR 

.BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.WORD 

JSR 

SUB 

JSR 

JSR 

JSR 

4040 

2020 

JSR 

.BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 

.WORD 

JSR 

SUB 

JSR 

JSR 

JSR 

JSR 



40000 

160000 

48000 



R5, ONLOAD 

#PAT+2,R4 

R5,L0AD 

R5,SERNUM 

R5,0VWPER 



R5,ADJCYL 

200 
IfcO 
100 
5,0 

i8 

R5, UNLOAD 

R5,SERNUH 
R5,0VWPER 



R5,ADJCYL 

28000 

18000 

5,0 

20000 

5,0 

10000 

\i" 

l6° 

5,0 

28 



R5, UNLOAD 

#PAT+2,R4 

R5,L0AD 

R5,SERNUM 

R5,0VWPER 



R5,ADJCYL 



;IN 3/2 INSIDE 
;0UT 3/2 INSIDE 

;terkinator 

junload pack from 4th drive 
;set drive buffer for 3rd drive 
;l0ad pack on 3rd drive 

;CHECK FOR PACK SERIAL NUMBER 
;PERFORM R/W OVERWRITE ON 3RD DRIVE 



;IN 2/3 OUTSIDE 

;OUT 2/3 OUTSIDE 

;IN 2/3 INSIDE 

JOUT 2/3 INSIDE 

;TERMINATOR 

;UNLOAD PACK FROM 3PD DRIVE 

JSET DRIVE BUFFER FOR 2ND DRIVE 

;L0AD PACK ON THIRD DRIVE 

;CHECK PACK SERIAL NUMBER 

?PERFORM R/W OVERWRITE ON 2ND DRIVF 



;IN 1/2 OUTSIDE 
;OUT 1/2 OUTSIDE 
;TN 1/2 INSIDE 

/out 1/2 inside 

;in 1/3 outside 

;out 1/3 outside 

;in 1/3 inside 

;out 1/3 inside 

;termin»tor 

;unload pack from 2nd drive 

;set drive buffer for 1st drive 

>load pack into first drive unit 

KHECK SERIAL NUMBER 
;PERFORM R/W OVERWRITE 



^ f 
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GLOBAL SUBROUflNES SECTION 
L4 

ao 
I'' 

4000 

hi 
I* 

Lo 



• BYTE 
•ORp 



.BYTE 
PRINTF 



f' 



3S: 





CSPNTF 
#4,SP 

CSBRK 
3$ 



ENDTST 
L10012I 

EMT CSETST 

BGNMOD HRDPRM 

BGNHRD 

.WORD L10013-L$HARD/2 



?IN 0/1 OUTSIDE 

JOUT 0/1 OUTSIDE 

?IN 0/1 INSIDE 

;OUT 0/1 INSIDE 

?IN 0/2 OUTSIDE 

>aUT 0/2 OUTSIDE 

;IN 0/2 INSIDE 

;OUT 0/2 INSIDE 

JIN 0/3 OUTSIDE 

;OUT 0/3 OUTSIDE 

;IN 0/3 INSIDE 

;OUT 0/3 INSIDE 

^TERMINATOR 
;UNLOAD PACK 
;END or PASS 



GPRML 
.HQRD 
.WORD 
»WORD 
GPRMA 
.WORD 
.WORD 



RLHSGgRLCNI,l,VES 



RLMSG 

CSRMSG^CSR, 0,160000/ 177776, YES 

TSCODE 

CSRMSG 

TSLOLIM 

tIhilim 



,) 



iSSBNBLV ROUTINES 
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GPRM 
.WO 



IP 



V|gMS|,VECT,0,0,776#YES 

■■■"ffi 

||PRIOR,O,340/0,7,YBS 



iLIM 
§1111 |||^||ORBT^O^03400/0,7,¥ 

ENDHRD 



L10013: 



IIM mill «"''^' -^^'^^ m'UREs 

UUll ^^'^^^^ BRMSG8 .ASCIZ /BR LEVEL/ 
052103 051117 VECMSGS .ASCIZ /VECTOR/ 



f #1 
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mm 



032144 



10 

or 

0321 



04 



044522 042526 



DRHSG: 
.EVEN 



.ASCIZ /DRIVE/ 






032244 
032244 



;AREA RESERVED AS PATCH AREA FOR DIAGNOSTICS. 
JTHIS DIAGNOSTIC DOES NOT RUN IN APT MODE. 

LASTAD 

.EVEN 

LSLAST:: 
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CZRLFB-SUP 23-0CT-78 09:53 DIAGNOSTIC SUPERVISOR — LOW CORE SET UP 



Am 
mt 



fill 



mm 



.SBTTL DIAGNOSTIC SUPERVISOR — LOW CORE SET UP 

.WORD ;SPACE FOR USER POOL POINTER 

.NQRD ;SIZE 

.WORD ^CHECKSUM (NCT CURRENTLY USED) 

.WORD ;SIZE OF H.H. PTAB. ALLOCATION 

EN0.SUPV=.-»-2 

.END 200 
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M^'^ 



if A 

WK 8 



lii 

CjjK.PC 

CH.PAS 
CLEAR, 

CLKBFR 



m 



COMPAT 

CRLF 
CRSET = 
CS = 
CSR = 



000, 
0000 



Mm 

|CVEC= 



ERSFs 

,ERSO= 

|ESCA= 

SESEG= 

ESUB= 

ETST= 

"XIT= 



mn 



m 



m 



^RPBU= 
5REFG= ,., 
SREQT= OOOl -- 
SRESE= 000033 



0050 
"045 



DERR = 
DESCYL 

m 

DIRC 

O^DVD ' 
DPMUL 
ORBT s 
ORBUF 



000006 
000007 
000010 



nm 

ERR.flU 
ERR.SF 



E.MPl 
E.HP2 



FLAG. I 
FLA.SE 
FLG.MA 



) 
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SDFfs 
*SRV s 

-OB = 



MAT A 

EfCHR 



\n 



!C0R_ 

Ic.Xdr 

fC.DEF 

MU 
mi' 

Irdprm 

iSPLG 
iW.ADR 

IHAwl 

inInit 

INITCO 
IHITIA 
ENITWR 

M 

R 



ivM 



mi 



.SfCLR 
STDRV 
STTRK 

i-yP.AD 
L|A§T 
LSAUT 
LSCCP 



LSDEVP 



SSPfP 
ISTA 
ST I ML 

m 

STSTI 
SUNIT 
sCLK. 



MAN.TI 

HAP16 

MASK.B 

MASK.W 

MDHEOR 

MEM. SI 

mil 

Mior 

H|D2 



MOL 

NEWPRI 

"-XTA- 



iiS^E 



03 



ml"" 

NO.CLK 

NO.PTA .. 

NR = QQ 

NUMBIN 04i 

NUM. LA 04 

NUM.NO 03 

NUM. UN 03 

NUNITS 04 
NXM 



m 

32 

n 



■11 
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SEQ 0074 





SERNHL 

SERNOM 

SETLST 

SETUP 

SET-MA 

SHIFT 

SIGN = 

SKCYL 

SKER 

SKHS = 




TOU50 


002166 


■'QU51 


002173 


TRKCNT 


002760 
002756 


' RKFND 


TST.AB 


041460 


■ST. TO 


033662 


"YPEC 


052066 


"YPEPC 


kiht 

052004 


"YPFLA 


TYPLIN 


' YPNUM 


' YPSTR 


"YP.ER 


045612 


"Y.UNI 




' |argc= 


T$CODE= 
"SERCOs 


oo^oli 


fERRNr 


IIP 


"SEXCP= 
' SHILIs 


' Iloli= 


010000 


; |lsym= 




uuu 




mi 


■iUl'd 


' $SUBN= 
"$TAGL= 


0000,5 


|tagn= 


010014 


|temp= 


000000 
000001 


' stest= 


; |tstm= 


177777 
000001 




' SSCLF= 


0100 


■ ||har= 


imi 


TSSHW = 


010006 


$|lNI= 


010007 


TS$MSG= 




;'$STES = 




UNIT.D 


Hill ' 


UNI. MA 



UNLOAD 

USEH.P 

USER.T 

UUT 

VAJWR 

VALID. 

VAL.LA 

VAL.SW 

VEC = 

VECMSG 

VECT = 

VERQD 

VRROifJ 

WCOUNT 

WIDTH 

WRITE = 

WRITl 

WRSEC 

XEQDIA 

XEQSUB 

XEQ.CL 

XEQ.CM 

XEQ.IN 

XEQ.LA 

XEQ.OP 

XEQ.PR 

XEQ.TE 

XTIME 

XTIMEN 

XTIMST 

XXDP.D 

X$ALWA= 

XSFALS= 

X|0FFS= 

X$TRUE= 

SBREG 

SENDAD 

SSAV2 

SSAV3 

SSAV4 

SSAV5 



030360 

mm 

002726 
026534 
032764 
033604 
037250 
000002 
032126 
000002 

imt 

002740 
Q46532 
000012 
017655 
023566 
061554 
061542 
041264 
036574 
040746 

041040 
034240 
041104 
060426 
061252 
060450 
036614 
000000 
000040 
000400 
000020 
037310 
061526 
062572 
062606 
062624 
062644 
063050 



ERRORS DETECTED: 
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